home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / ad.arc / ADSEARCH.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  10.6 KB  |  255 lines
  1. 5  ARR$=CHR$(17)+CHR$(196)+CHR$(217):C1$=CHR$(34)
  2. 20  DIM DQ$(12):FOR I= 1 TO 12:READ DQ$(I):NEXT
  3. 30  DATA JANUARY, FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER
  4. 33  ON ERROR GOTO 35:GOTO 40
  5. 35  IF ERR = 53 THEN 36 ELSE 38
  6. 36  CLS:LOCATE 10,15:PRINT "File containing KEYS used in NOTES does not exist.":LOCATE 12,22:PRINT "Return to EDIT program to create file.":COLOR 0,7:LOCATE 18,28:PRINT "Hit any key to continue":COLOR 3,0:GOSUB 35030
  7. 37  Y$=INKEY$:IF Y$="" THEN 37 ELSE RESUME 160
  8. 38  CLS:LOCATE 10,30:PRINT "ERROR ENCOUNTERED":FOR I= 1 TO 300:NEXT:GOSUB 35030:RESUME 160
  9. 40  REM
  10. 50  REM         TEMPORARY FILE
  11. 55  OPEN "TEMPOR.TEM" FOR INPUT AS #1
  12. 56  INPUT #1, FILE$,FILM$,FIL$:CLOSE #1:DIM ZK(40):ZTEST=0
  13. 60  OPEN FILM$ FOR INPUT AS #3
  14. 70  INPUT #3,Y$,NRED,NN,FILE$,FIL$,PT$,SNN$,LP1,LP$,T1$,SND$,TN,F$
  15. 72  FOR I=1 TO 36:INPUT #3, ZK(I):NEXT:CLOSE #3:FOR I= 1 TO 26:ZTEST=ZTEST+ZK(I):NEXT
  16. 97  DIM D%(NN),V$(16),D$(16)
  17. 105  OPEN FILE$ AS #4 LEN = 356
  18. 110  FIELD #4, 19 AS V$(1), 19 AS V$(2), 18 AS V$(13), 34 AS V$(12), 34 AS V$(3), 34 AS V$(4), 19 AS V$(5), 14 AS V$(6), 16 AS V$(7), 12 AS V$(8), 84 AS V$(9), 19 AS V$(10), 19 AS V$(11), 5 AS V$(14), 5 AS V$(15), 5 AS V$(16)
  19. 115  GET #4, NN+1:KSET=VAL(V$(16))
  20. 120  GOTO 160
  21. 130  A$="EDIT":Y1=1:GOTO 140
  22. 131  A$="DELETE":Y1=2:GOTO 140
  23. 132  A$="SORT":Y1=3:GOTO 140
  24. 133  A$="PRINT":Y1=4:GOTO 140
  25. 135  A$="MAIN":Y1=5
  26. 140  CLS:LOCATE 25,25:COLOR 1,3,1:PRINT "INTEGRATED SOFTWARE SYSTEMS";:COLOR 3,0:LOCATE 12,21:PRINT "PLEASE WAIT, LOADING ";A$;" ROUTINES":GOSUB 5200
  27. 145  A$="AD"+A$:RUN A$
  28. 155  CLS:COLOR 3,0,1:LOCATE  12,30:PRINT "QUIT?  <Y>es or <N>o?":COLOR 14,0:LOCATE 12,38:PRINT "Y":LOCATE 12,47:PRINT "N":COLOR 3,0:GOSUB 35010
  29. 156  GOSUB 5151
  30. 157  IF Y$="N" THEN 160
  31. 159  CLS:LOCATE 12,30:PRINT "GOODBYE":SYSTEM
  32. 160  ON KEY(1) GOSUB 135:ON KEY(2) GOSUB 130:KEY(1) ON:KEY(2) ON:ON KEY(3) GOSUB 131:KEY(3) ON:ON KEY(4) GOSUB 132:KEY(4) ON:ON KEY(5) GOSUB 160:ON KEY(6) GOSUB 133:KEY(6) ON:KEY(5) ON
  33. 161  ON KEY(8) GOSUB 4000:KEY(8) ON:ON KEY(7) GOSUB 20000:KEY(7) ON:ON KEY(9) GOSUB 5000:KEY(9) ON
  34. 163  REM
  35. 165  REM                           SEARCH
  36. 170  REM
  37. 180  REM
  38. 190  X1$="SEARCH":X3$="FILE = ":X5$="FUNCTION = ":X4$=SPACE$(30)
  39. 200  FOR I= 1 TO NN:D%(I)=0:NEXT I
  40. 201  O3$=CHR$(218)+CHR$(196)+CHR$(191):O4$=CHR$(179)+" "+CHR$(179):O5$=CHR$(192)+CHR$(196)+CHR$(217)
  41. 215  O$=CHR$(219):O2$=CHR$(221):O1$="F KEYS:"+O$+O$+"F1:MAIN menu"+O2$+"F5:SEARCH menu"+O2$+"F7:NAMES"+O2$+"F8:NOTES"
  42. 220  CLS:LOCATE 25,10:COLOR 1,3,1:PRINT X3$;FILE$;X4$;X5$;X1$;:COLOR 3,0
  43. 230  LOCATE 1,1:PRINT TAB(8);"SEARCH MENU":PRINT:PRINT "CHOOSE ONE OF THE FOLLOWING:  "
  44. 240  PRINT:COLOR 14,0
  45. 250  PRINT "   ";CHR$(186);"     ";O3$:PRINT "   ";CHR$(186);"     ";O4$:PRINT "   ";CHR$(25);"     ";O5$:COLOR 3,0
  46. 260  PRINT :PRINT TAB(4);"B)IRTHDAY ":PRINT TAB(4);"F)IRST name":PRINT TAB(4);"S)NAME - surname"
  47. 270  PRINT TAB(4);"C)OMPANY ":PRINT TAB(4);"H)OME telephone number":PRINT TAB(4);"O)FFICE telephone number"
  48. 280  PRINT TAB(4);"N)OTES":PRINT TAB(4);"Z)IPCODE"
  49. 290  COLOR 14,0:LOCATE 9,4:PRINT "B":LOCATE 10,4:PRINT "F":LOCATE 11,4:PRINT "S":LOCATE 12,4:PRINT "C"
  50. 300  LOCATE 13,4:PRINT "H":LOCATE 14,4:PRINT "O":LOCATE 15,4:PRINT "N":LOCATE 16,4:PRINT "Z"
  51. 320  COLOR 31,0:LOCATE 6,11:PRINT "?"
  52. 330  COLOR 3,0:LOCATE 17,40:PRINT "KEY  F1 = Return to MAIN menu"
  53. 331  LOCATE 18,40:COLOR 14,0:PRINT "     F5";:COLOR 3,0:PRINT " = Return to SEARCH menu"
  54. 332  LOCATE 19,40:PRINT "     F7 = List of names in Address Book"
  55. 333  LOCATE 20,40:PRINT "     F8 = KEYS used in NOTES"
  56. 335  LOCATE 21,40:PRINT "    F10 = HELP"
  57. 336  LOCATE 22,40:PRINT "Alt F10 = QUIT"
  58. 337  DEF SEG=0: POKE 1050, PEEK(1052):LOCATE 1,67:PRINT "(C) 1983":LOCATE 2,62:PRINT "Date:  ";DATE$:LOCATE 3,62:PRINT "Time:  "
  59. 340  Y$=INKEY$:IF Y$="" THEN LOCATE 3,69:PRINT TIME$:GOTO 340 ELSE 350
  60. 350  IF LEN(Y$)=2 THEN 435 ELSE Y$=CHR$(ASC(Y$) AND &HDF)
  61. 360  IF Y$="F" THEN 590
  62. 370  IF Y$="S" THEN 640
  63. 380  IF Y$="C" THEN 690
  64. 390  IF Y$="H" THEN 740
  65. 400  IF Y$="O" THEN 790
  66. 410  IF Y$="N" THEN Y1$="N":GOTO 840
  67. 420  IF Y$="B" THEN 890
  68. 430  IF Y$="Z" THEN 932 ELSE GOSUB 35040:GOTO 337
  69. 435  IF ASC(RIGHT$(Y$,1))=68 THEN 30000
  70. 440  IF ASC(RIGHT$(Y$,1))=113 THEN 155 ELSE 230
  71. 590  GOSUB 6000
  72. 600  PRINT "SEARCH ... NAME ":PRINT :COLOR 12,0:LOCATE 5,28 :PRINT "ENTER:  FIRST name & ";ARR$:GOSUB 6010
  73. 610  INPUT "FIRST NAME ... ",S$
  74. 620  L=1:S1=6:GOSUB 940
  75. 630  GOTO 200
  76. 640  GOSUB 6000
  77. 650  PRINT "SEARCH ... SURNAME ":LOCATE 5,28 :COLOR 12,0:PRINT "ENTER:  SURNAME & ";ARR$:GOSUB 6010
  78. 660  INPUT "SURNAME ... ",S$
  79. 670  L=2:S1=1:GOSUB 940
  80. 680  GOTO 200
  81. 690  GOSUB 6000
  82. 700  PRINT "SEARCH ... COMPANY":LOCATE 5,28 :COLOR 12,0:PRINT "ENTER:  COMPANY NAME & ";ARR$:GOSUB 6010
  83. 710  INPUT "COMPANY ... ",S$
  84. 720  L=3:S1=2:GOSUB 940
  85. 730  GOTO 200
  86. 740  GOSUB 6000
  87. 750  PRINT "SEARCH ... HOME TELEPHONE NUMBER":GOSUB 6020
  88. 760  INPUT "HOME TELEPHONE NUMBER ... ",S$
  89. 770  L=10:S1=3:GOSUB 940
  90. 780  GOTO 200
  91. 790  GOSUB 6000
  92. 800  PRINT "SEARCH ... OFFICE TELEPHONE NUMBER":GOSUB 6020
  93. 810  INPUT "OFFICE TELEPHONE NUMBER ... ",S$
  94. 820  L=11:S1=4:GOSUB 940
  95. 830  GOTO 200
  96. 840  GOSUB 6000
  97. 850  PRINT "SEARCH ... NOTE ":LOCATE 5,33:COLOR 12,0:PRINT "ENTER:  NOTE 2 & ";ARR$:LOCATE 6,8:COLOR 3,0:PRINT "(Any number of characters and always start from the left most character)"
  98. 860  GOSUB 6015:INPUT "NOTE ... ",S$
  99. 870  L=9:S1=5:GOSUB 940
  100. 880  GOTO 200
  101. 890  GOSUB 6000
  102. 900  PRINT "SEARCH ... BIRTHDAYS":LOCATE 5,33:COLOR 12,0:PRINT "ENTER:  MONTH & ";ARR$:COLOR 3,0:LOCATE 6,17:PRINT "(EX: 01-Jan., 02-Feb., ... 11-Nov., and 12 Dec.)"
  103. 910  GOSUB 6015:INPUT "BIRTHDAY (MONTH) ... ",S$
  104. 920  L=8:S1=7:GOSUB 940
  105. 930  GOTO 200
  106. 932  GOSUB 6000
  107. 933  PRINT "SEARCH ... ZIPCODE":LOCATE 5,33:COLOR 12,0:PRINT "ENTER:  ZIPCODE ";ARR$
  108. 935  GOSUB 6015:INPUT "ZIPCODE ... ",S$
  109. 937  L=7:S1=8:GOSUB 940
  110. 939  GOTO 200
  111. 940  Y$=" "
  112. 950  MG=0:MM=LEN(S$):MS=0:IF MM=0 THEN RETURN
  113. 960  GOSUB 6000
  114. 965  GOSUB 6005
  115. 966  I=0:JJ=0:IF L=2 THEN QK=ASC(LEFT$(S$,1)) ELSE K=KSET:GOTO 970
  116. 968  IF QK>90 THEN 1350 ELSE K=ZK(QK-64)
  117. 969  IF ZTEST=26 THEN K=KSET
  118. 970  IF K=0 THEN 1350 ELSE GET #4,K:I=I+1
  119. 972  IF L<>2 THEN 980
  120. 973  IF (ZTEST<>26 AND QK<>ASC(MID$(V$(2),5,1))) THEN 1340
  121. 974  IF QK<>ASC(MID$(V$(2),5,1)) THEN 1330
  122. 980  ON S1 GOTO 990,990,1050,1050,990,990,990,1050
  123. 990  D$(L)=MID$(V$(L),5,VAL(V$(L))):IF S$<>LEFT$(D$(L),MM) THEN 1330 ELSE 1160
  124. 1050  D$(L)=MID$(V$(L),5,VAL(V$(L))):IF S$<>RIGHT$(D$(L),MM) AND S$<> LEFT$(D$(L),MM) THEN 1330 ELSE 1160
  125. 1110  D$(8)=MID$(V$(8),5,VAL(V$(8))):IF S$<>LEFT$(D$(8),2) THEN 1330
  126. 1120  MO=VAL(LEFT$(D$(8),2)):A$=MID$(V$(1),5,VAL(V$(1)))+" "+MID$(V$(2),5,VAL(V$(2))):NO=LEN(A$):NO=35-NO
  127. 1125  IF VAL(MID$(D$(8),7,2))<>0 THEN 1130 ELSE PRINT A$;SPACE$(NO);DQ$(MO);" ";MID$(D$(8),4,2):GOTO 1140
  128. 1130  PRINT A$;SPACE$(NO);DQ$(MO);" ";MID$(D$(8),4,2);", 19";MID$(D$(8),7,2)
  129. 1140  D%(I)=999:MG=1:GOTO 1330
  130. 1160  IF Y$="D" OR Y$="d" THEN 1260
  131. 1165  IF MS=0 THEN GOSUB 6000:GOSUB 6005
  132. 1170  COLOR 0,7:PRINT "ADDRESS #:  ";I:COLOR 3,0
  133. 1180  PRINT MID$(V$(13),5,VAL(V$(13)));MID$(V$(1),5,VAL(V$(1)));" ";MID$(V$(2),5,VAL(V$(2)))
  134. 1190  IF VAL(V$(12)) =0 THEN 1200 ELSE PRINT MID$(V$(12),5,VAL(V$(12)))
  135. 1200  IF VAL(V$(3)) =0 THEN 1210 ELSE PRINT MID$(V$(3),5,VAL(V$(3)))
  136. 1210  PRINT MID$(V$(4),5,VAL(V$(4))):PRINT MID$(V$(5),5,VAL(V$(5)));", ";MID$(V$(6),5,VAL(V$(6)));"  ";MID$(V$(7),5,VAL(V$(7)))
  137. 1220  PRINT "TELEPHONE - HOME:  ";MID$(V$(10),5,VAL(V$(10)))
  138. 1230  PRINT TAB(11);"OFFICE:  ";MID$(V$(11),5,VAL(V$(11)))
  139. 1240  IF LEN(V$(8))=0 THEN 1250 ELSE PRINT "BIRTHDAY: ";MID$(V$(8),5,VAL(V$(8)))
  140. 1250  IF VAL(V$(9))=0 THEN 1260 ELSE PRINT "NOTE:  ";MID$(V$(9),5,VAL(V$(9)))
  141. 1260  JJ=JJ+1:PRINT:D%(JJ)=K:IF Y$="D" OR Y$="d" THEN 1330
  142. 1270  MG=1:MS=MS+1:IF MS<2 THEN 1330
  143. 1280  GOSUB 6030
  144. 1300  IF Y$=CHR$(27) THEN RETURN
  145. 1320  MS=0
  146. 1330  IF I>=NN THEN 1335 ELSE K=VAL(V$(14)):GOTO 970
  147. 1335  LOCATE 1,70:PRINT SPACE$(9)
  148. 1340  IF MG<>0 THEN 1360
  149. 1350  LOCATE 1,70:PRINT SPACE$(9):PRINT:PRINT:PRINT "NOT in the address book. Try again.  Hit any key to continue.":PRINT:Y$=INPUT$(1):RETURN
  150. 1360  LOCATE 19,53:COLOR 0,7:PRINT "SEARCH COMPLETED.":COLOR 3,0:LOCATE 1,70:PRINT SPACE$(9)
  151. 1370  IF Y$="D" OR Y$="d" THEN 1430
  152. 1380  LOCATE 20,44:PRINT "DO you want a HARDCOPY printout of": LOCATE 21,46:PRINT "your SEARCH?  <Y>es or <N>o.":COLOR 14,0:LOCATE 21,61:PRINT "Y":LOCATE 21,70:PRINT "N":LOCATE 21,73:PRINT "?":COLOR 3,0:GOSUB 35000
  153. 1390  GOSUB 5151
  154. 1400  IF Y$="N" THEN RETURN ELSE GOSUB 6000
  155. 1430  PRINT "HARDCOPY ... ":LOCATE 8,20
  156. 1440  IF LEN(PT$)=0 THEN 1530
  157. 1445  IF PT$<>"" THEN 1530
  158. 1450  GOSUB 6000
  159. 1460  PRINT "PLEASE SELECT PRINTER:  " :PRINT
  160. 1470  PRINT:COLOR 14,0
  161. 1480  PRINT "   ";CHR$(186);"     ";O3$:PRINT "   ";CHR$(186);"     ";O4$:PRINT "   ";CHR$(25);"     ";O5$:COLOR 3,0
  162. 1490  PRINT :LOCATE  8,4:PRINT "I)BM Parallel Printer":LOCATE 9,4:PRINT "N)Serial Printer":COLOR 14,0:LOCATE 8,4:PRINT "I":LOCATE 9,4:PRINT "N"
  163. 1500  COLOR 31,0:LOCATE 5,11:PRINT "?":COLOR 3,0
  164. 1505  PT$=INKEY$:IF PT$="" THEN 1505 ELSE PT$=CHR$(ASC(PT$) AND &HDF)
  165. 1510  IF PT$="N" THEN 1530
  166. 1520  IF PT$="I" THEN 1530 ELSE 1490
  167. 1530  CLOSE #5:IF PT$="I" THEN OPEN "LPT1:" FOR OUTPUT AS #5:GOTO 1535
  168. 1531  CLOSE #5:OPEN "LPT2:" FOR OUTPUT AS #5
  169. 1535  GOSUB 6000
  170. 1540  LOCATE 1,1:PRINT TAB(2);"SEARCH - HARDCOPY - MENU":PRINT:PRINT "CHOOSE ONE OF THE FOLLOWING:  "
  171. 1550  PRINT:COLOR 14,0
  172. 1560  PRINT "   ";CHR$(186);"     ";O3$:PRINT "   ";CHR$(186);"     ";O4$:PRINT "   ";CHR$(25);"     ";O5$:COLOR 3,0
  173. 1570  PRINT:PRINT TAB(4);"A)DDRESS & NAME only":PRINT TAB(4);"N)AME, ADDRESS, and TELEPHONE":PRINT TAB(4);"C)OMPLETE dossier"
  174. 1580  COLOR 14,0:LOCATE 9,4:PRINT "A":LOCATE 10,4:PRINT "N":LOCATE 11,4:PRINT "C"
  175. 1590  P$=INKEY$: IF P$="" THEN 1590
  176. 1592  IF P$=CHR$(27) THEN 200
  177. 1595  P$=CHR$(ASC(P$) AND &HDF)
  178. 1600  COLOR 31,0:LOCATE 6,11:PRINT "?"
  179. 1610  COLOR 3,0:LOCATE 6,11:PRINT P$
  180. 1620  IF P$="N" THEN 1670
  181. 1630  IF P$="C" THEN 1670
  182. 1640  IF P$="A" THEN 1670 ELSE 1540
  183. 1670  LOCATE 18,25:COLOR 0,7:PRINT "TURN ON PRINTER AND HIT ANY KEY":COLOR 3,0
  184. 1680  Y$=INKEY$: IF Y$="" THEN 1680 ELSE LOCATE 18,25:PRINT SPACE$(40):LOCATE 18,35:COLOR 16,7:PRINT "WORKING":COLOR 3,0
  185. 1690  REM
  186. 1820  PRINT #5,:PRINT #5, "        (C) COPYRIGHT ISS, INC. 1983":PRINT #5,
  187. 1830  PRINT #5, SPACE$(30);"THE ADDRESS BOOK"
  188. 1840  B=VAL(LEFT$(DATE$,2))
  189. 1850  PRINT #5,:PRINT #5, SPACE$(30);DQ$(B);" ";MID$(DATE$,4,2);", 19";RIGHT$(DATE$,2):PRINT #5,:PRINT #5,
  190. 1860  FOR I= 1 TO JJ
  191. 1870  GET #4,D%(I)
  192. 1880  PRINT #5,MID$(V$(13),5,VAL(V$(13)));MID$(V$(1),5,VAL(V$(1)));" ";MID$(V$(2),5,VAL(V$(2)))
  193. 1890  IF VAL(V$(12))=0 THEN 1900 ELSE PRINT #5, MID$(V$(12),5,VAL(V$(12)))
  194. 1900  IF VAL(V$(3))=0 THEN 1910 ELSE PRINT #5, MID$(V$(3),5,VAL(V$(3)))
  195. 1910  PRINT #5, MID$(V$(4),5,VAL(V$(4))):PRINT #5, MID$(V$(5),5,VAL(V$(5)));", ";MID$(V$(6),5,VAL(V$(6)));"  ";MID$(V$(7),5,VAL(V$(7))):PRINT #5,
  196. 1920  IF P$="a" OR P$="A" THEN 1990
  197. 1930  PRINT #5, "TELEPHONE:  "
  198. 1940  PRINT #5, TAB( 7);"HOME:    ";MID$(V$(10),5,VAL(V$(10)))
  199. 1950  PRINT #5, TAB( 7);"OFFICE:  ";MID$(V$(11),5,VAL(V$(11))):PRINT #5,
  200. 1960  IF P$="N" OR P$="n" THEN 1990
  201. 1970  PRINT #5, "BIRTHDAY: ";MID$(V$(8),5,VAL(V$(8))):PRINT #5, "NOTES:     ";MID$(V$(9),5,VAL(V$(9)))
  202. 1980  PRINT #5,
  203. 1990  NEXT I
  204. 2000  RETURN
  205. 2140  OPEN "TEMPOR.TEM" FOR OUTPUT AS #3
  206. 2150  WRITE #3, Y$,NRED,NN,FILE$,FIL$,PT$,SNN$,LP1,LP$,T1$,SN$,TN,F$:CLOSE #3
  207. 4000  FILN$ =FIL$+".NTE"
  208. 4010  OPEN FILN$ FOR INPUT AS #2
  209. 4030  FOR I= 1 TO 20:INPUT #2, NKEY$(I),NOTE$(I):IF NKEY$(I)=CHR$(15) THEN 4035 ELSE NEXT
  210. 4035  NP=I-1:CLOSE #2
  211. 4040  GOSUB 6000
  212. 4050  PRINT "NOTES:  KEYS":LOCATE 1,30:COLOR 14,0:PRINT "KEYS       ";:COLOR 3,0:PRINT " DESCRIPTION":FOR I=1 TO NP:COLOR 14,0:LOCATE 4+I,30:PRINT NKEY$(I);:COLOR 3,0:LOCATE ,40:PRINT " = ";NOTE$(I):NEXT
  213. 4060  LOCATE 20,28:COLOR 14,0:PRINT "HIT ANY KEY TO CONTINUE":GOSUB 35030
  214. 4065  Y$=INKEY$:IF Y$="" THEN 4065
  215. 4066  COLOR 3,0
  216. 4070  RETURN 160
  217. 5000  GOSUB 6000:A$="SEARCH":Y1=5
  218. 5001  COLOR 3,0:LOCATE 12,20:PRINT "Do you want to save the DATA?  <Y>es or <N>o.":COLOR 3,0:LOCATE 12,52:COLOR 14,0:PRINT "Y":LOCATE 12,61:PRINT "N":COLOR 3,0
  219. 5002  GOSUB 5150
  220. 5003  IF Y$="N" THEN CLS:RETURN 160 ELSE CLOSE:CHAIN "ADFILES",10,ALL
  221. 5150  GOSUB 35040:DEF SEG=0: POKE 1050, PEEK(1052)
  222. 5151  Y$=INKEY$:IF Y$="" THEN 5151 ELSE Y$=CHR$(ASC(Y$) AND &HDF)
  223. 5152  IF Y$="N" OR Y$="Y" THEN RETURN ELSE 5150
  224. 5200  IF Y1=1 THEN Y$="B" ELSE Y$=LEFT$(A$,1)
  225. 5210  OPEN FILM$ FOR OUTPUT AS #3
  226. 5220  WRITE #3, Y$,NRED,NN,FILE$,FIL$,PT$,SNN$,LP1,LP$,T1$,SND$,TN,F$
  227. 5225  FOR I=1 TO 36:WRITE #3, ZK(I):NEXT:CLOSE #3:RETURN
  228. 6000  CLS:LOCATE 25,1:COLOR 0,7,1:PRINT O1$;:COLOR 3,0:LOCATE 1,1:RETURN
  229. 6005  LOCATE 1,70:COLOR 16,7:PRINT "WORKING":COLOR 3,0:RETURN
  230. 6010  COLOR 3,0:LOCATE 6,15:PRINT  "(full name or any part starting from left most character)"
  231. 6015  LOCATE 8,39:PRINT "OR":COLOR 12,0:LOCATE 10,28:PRINT ARR$;"  return to SEARCH menu":LOCATE 15,10:COLOR 14,0:RETURN
  232. 6020  COLOR 12,0:LOCATE 5,26:PRINT "ENTER:  TELEPHONE NUMBER & ";ARR$:COLOR 3,0:LOCATE 6,22:PRINT "(EX. 301-321-3137 OR 321-3137 OR 3137)"
  233. 6025  LOCATE 8,39:PRINT "OR":COLOR 12,0:LOCATE 10,29:PRINT ARR$;"  return to SEARCH menu":LOCATE 15,15:COLOR 14,0:RETURN
  234. 6030  LOCATE 1,70:PRINT SPACE$(9)
  235. 6040  LOCATE 11,47:PRINT "Hit <ESC> to end search."
  236. 6045  LOCATE 12,47:PRINT "Hit any key to Continue.":LOCATE 13,58:PRINT "OR":LOCATE 14,40:PRINT "<D> to give a Printout of Search ONLY.":COLOR 14,0:LOCATE 14,41:PRINT "D":LOCATE 14,77:PRINT "?":COLOR 3,0:GOSUB 35020
  237. 6050  Y$=INKEY$: IF Y$="" THEN 6050
  238. 6060  IF Y$="D" OR Y$="d" THEN LOCATE 20,55:COLOR 16,7:PRINT "SEARCHING" :COLOR 3,0
  239. 6070  LOCATE 1,70:COLOR 0,7:PRINT "WORKING":COLOR 3,0:RETURN
  240. 20000  A$="ADSEARCH":CHAIN "ADNAME",20000,ALL
  241. 30000  CLS:LOCATE 25,25:COLOR 1,3,1:PRINT "INTEGRATED SOFTWARE SYSTEMS";:COLOR 3,0:LOCATE 1,1
  242. 30010  OPEN "AD.HLP" AS #2 LEN=78
  243. 30020  FIELD #2, 78 AS A$
  244. 30030  I=1:M=1
  245. 30040  GET #2,I
  246. 30090  IF LEFT$(A$,1) <> CHR$(15) THEN PRINT A$ :I=I+1:GOTO 30040 ELSE 30130
  247. 30130  LOCATE 24,27:COLOR 14,0:PRINT "HIT ANY KEY TO CONTINUE";:COLOR 3,0:GOSUB 35030
  248. 30140  Y$=INKEY$:IF Y$="" THEN 30140
  249. 30150  CLOSE #2:GOTO 180
  250. 35000  IF SND$="N" THEN RETURN ELSE FOR SS%=1 TO 4:SOUND 500*SS%,2:NEXT:RETURN
  251. 35010  IF SND$="N" THEN RETURN ELSE FOR SS%=1 TO 3:SOUND 1000*SS%,1:NEXT:FOR SS%= 3 TO 1:SOUND 1000*SS%,1:NEXT:RETURN
  252. 35020  IF SND$="N" THEN RETURN ELSE SOUND 750,2:SOUND 30000,2:SOUND 750,2:RETURN
  253. 35030  IF SND$="N" THEN RETURN ELSE SOUND 523,2:SOUND 20000,3:SOUND 523,2:RETURN
  254. 35040  IF SND$="N" THEN RETURN ELSE BEEP:RETURN
  255.